
      integer :: LUIN,LUOUT
      integer :: LUDIA,LUC,LUHC,LUSC1,LUSC2,LUSC3
      integer :: LUSC34,LUSC35,LUSC36,LUSC37,LUSC38,LUMCREF
      integer :: LUSC40,LUSC41,LU91

      COMMON/CLUNIT/LUIN,LUOUT,LUMCREF,                                 &
     &              LUDIA,LUC,LUHC,LUSC1,LUSC2,LUSC3,                   &
     &              LUSC34,LUSC35,LUSC36,LUSC37,LUSC38,LUSC40,          &
     &              LUSC41,LU91
